home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / cadence.arc / VOL1NO5.ARC / TAPER25.LSP < prev   
Encoding:
Text File  |  1980-01-01  |  735 b   |  24 lines
  1. (defun c:taper25 ()
  2. (setq E (entsel "Select line near the stationary end: "))
  3. (setq ELST (entget (car E)))
  4. (setq E1 (osnap (cadr E) "end"))
  5. (setq MP (osnap (cadr E) "mid"))
  6. (setq DFT (getreal "\nEnter taper angle in degrees (ccw=+,cw=-): "))
  7. (setq DFT (* DFT (/ PI 180.0)))
  8. (setq ANGL (+ DFT (angle E1 MP)))
  9. (setq D1 (* 2.0 (distance E1 MP)))
  10. (setq D2 (/ D1 (cos DFT)))
  11. (setq C (polar E1 ANGL D2))
  12. (if (equal E1 (cdr (assoc 10 ELST)))
  13.     (progn (setq C (append '(11) C))
  14.            (setq ELST (subst C (assoc 11 ELST) ELST))
  15.            )
  16.     (progn (setq C (append '(10) C))
  17.            (setq ELST (subst C (assoc 10 ELST) ELST))
  18.            )
  19.     )
  20. (entmod ELST)
  21. (command "FILLET" "R" "0")
  22. (command "FILLET")
  23. )
  24.